home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9101a.d64 / 4 gewinnt 2002 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  22 lines
  1. 0 POKE53280,0:POKE53281,0:PRINTCHR$(142);CHR$(8)
  2. 1 PRINT"[147]":PRINT"[176]";:FORI=1TO8:PRINT"[195][178]";:NEXT:PRINT"[195][174]":FORI=1TO8:FORE=1TO10:PRINT"[221] ";:NEXT:PRINT:PRINT"[171][195]";
  3. 2 FORE=1TO8:PRINT"[219][195]";:NEXT:PRINT"[179]":NEXT:FORE=1TO10:PRINT"[221] ";:NEXT:PRINT:PRINT"[173][192]";:FORI=1TO8:PRINT"[177][195]";:NEXT:PRINT"[189]"
  4. 3 PRINT"":FORI=73TO65STEP-1:PRINTTAB(59);CHR$(I):NEXT:PRINT" ";:FORI=1TO9:PRINT"[157]"I;:NEXT
  5. 4 DIMK(9,9):FORI=1TO9:FORE=1TO9:K(I,E)=32:NEXT:NEXT:PRINT:PL=2
  6. 5 IFPL=2THENPL=1:PT=86:Q$="[214]":PRINT"":GOTO7
  7. 6 PL=2:PT=81:Q$="[209]":PRINT""
  8. 7 PRINT"SPIELER"PL" ("Q$") [175][157]";:WAIT203,64:GETA$:PRINTA$;:A=VAL(A$):IFA>0ANDA<10THEN11
  9. 8 IFA$<"A"ORA$>"I"THENPRINT"[145]":GOTO7
  10. 9 Y=ASC(A$)-64:FORI=2TO9:K(I-1,Y)=K(I,Y):NEXT:K(9,Y)=PT:FORI=1TO9:P=2*I-80*(Y-1)
  11. 10 POKE1743+P,K(I,Y):NEXT:GOTO13
  12. 11 X=A:FORI=8TO1STEP-1:K(X,I+1)=K(X,I):NEXT:K(X,1)=PT:FORI=1TO9:P=2*X-80*(I-1)
  13. 12 POKE1743+P,K(X,I):NEXT
  14. 13 SYS2932:E1=PEEK(680):E2=PEEK(681)
  15. 14 IFE1=0THEN 5
  16. 15 IFE2<>0THEN18
  17. 16 PRINT:PRINT"GAME OVER!   ES GEWINNT SPIELER ";:IFE1=81THENPRINT"2 ([209])";:GOTO19
  18. 17 IFE1=86THENPRINT"1 ([214])";:GOTO19
  19. 18 PRINT:PRINT"GAME OVER!   UNENTSCHIEDEN!!";
  20. 19 GETA$:IFA$=""THEN19
  21. 20 RUN
  22.